unit DepoTestKistaslari;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FormClass, DB, ADODB, Mask, wwdbedit, Wwdotdot, Wwdbcomb,
  StdCtrls, wwdblook, Grids, Wwdbigrd, Wwdbgrid, XPMan, StdActns, ActnList,
  siComp;

type
  TfmDepoTestKistaslari = class(TfmFormClass)
    ActionList1: TActionList;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Action4: TAction;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    EditDelete1: TEditDelete;
    grdListe: TwwDBGrid;
    UstGruplc: TwwDBLookupCombo;
    Gruplc: TwwDBLookupCombo;
    aqEntry: TADOQuery;
    dsEntry: TDataSource;
    Modellc: TwwDBLookupCombo;
    Ambarciklc: TwwDBLookupCombo;
    Ambargirlc: TwwDBLookupCombo;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmDepoTestKistaslari: TfmDepoTestKistaslari;

implementation
uses data, ana1;
{$R *.dfm}

procedure TfmDepoTestKistaslari.FormCreate(Sender: TObject);
begin
  inherited;
  aqEntry.Open;
end;

procedure TfmDepoTestKistaslari.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
  fmDepoTestKistaslari := nil;
end;

end.
